home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / drill.arc / MADA.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-05-19  |  906 b   |  24 lines
  1. 100 REM * MADA.BAS * MENTAL ADDITION PROGRAM USED WITH DRILL.BAS *
  2. 110 CLS:'Use your own clear screen command here.
  3. 120 REM * Seed the random number generator from Time$
  4. 130 A=VAL(MID$(TIME$,4,2)+MID$(TIME$,7,2)):RANDOMIZE A
  5. 140 PRINT TAB(10)"----- Mental Addition -----"
  6. 150 PRINT"This is a program to practice mental addition."
  7. 160 PRINT"You will be given 20 numbers to add mentally.
  8. 170 INPUT"Press ENTER when you are ready to start";A
  9. 180 Z=0
  10. 190 FOR X=1 TO 20
  11. 200   Y=INT(RND*9)+1
  12. 210   LOCATE 6,40:PRINT "+";Y
  13. 220   Z=Z+Y
  14. 230   IF X=20 THEN 270
  15. 240   FOR T=1 TO 3000:NEXT T
  16. 250   LOCATE 6,40:PRINT"   "
  17. 260   FOR Y=1 TO 300:NEXT Y
  18. 270 NEXT X
  19. 280 INPUT"What is your answer";AN
  20. 290 IF AN=Z THEN PRINT"Great Job!" ELSE PRINT"The correct answer is:";Z
  21. 300 PRINT"Do you wish to try again (Y/N)"
  22. 310 A$=INKEY$:IF A$="" THEN 310
  23. 320 IF A$="Y" OR A$="y" THEN 110 ELSE RUN "DRILL.BAS"
  24.